﻿Imports System
Imports System.Workflow.ComponentModel

Namespace System.Workflow.Runtime.Tracking
    <Serializable> _
    Public Class TrackingWorkflowTerminatedEventArgs
        Inherits EventArgs
        ' Methods
        Friend Sub New(ByVal exception As Exception)
            Me._e = exception
        End Sub

        Friend Sub New(ByVal [error] As String)
            Me._e = New WorkflowTerminatedException([error])
        End Sub


        ' Properties
        Public ReadOnly Property Exception As Exception
            Get
                Return Me._e
            End Get
        End Property


        ' Fields
        Private _e As Exception
    End Class
End Namespace

